home *** CD-ROM | disk | FTP | other *** search
- """checktext - Check that a text file has macintosh-style newlines"""
-
- import macfs
- import sys
- import EasyDialogs
- import string
-
- def main():
- fsspec, ok = macfs.PromptGetFile('File to check end-of-lines in:', 'TEXT')
- if not ok:
- sys.exit(0)
- pathname = fsspec.as_pathname()
- fp = open(pathname, 'rb')
- try:
- data = fp.read()
- except MemoryError:
- EasyDialogs.Message('Sorry, file is too big.')
- sys.exit(0)
- if len(data) == 0:
- EasyDialogs.Message('File is empty.')
- sys.exit(0)
- number_cr = string.count(data, '\r')
- number_lf = string.count(data, '\n')
- if number_cr == number_lf == 0:
- EasyDialogs.Message('File contains no lines.')
- if number_cr == 0:
- EasyDialogs.Message('File has unix-style line endings')
- elif number_lf == 0:
- EasyDialogs.Message('File has mac-style line endings')
- elif number_cr == number_lf:
- EasyDialogs.Message('File probably has MSDOS-style line endings')
- else:
- EasyDialogs.Message('File has no recognizable line endings (binary file?)')
- sys.exit(0)
-
- if __name__ == '__main__':
- main()
-
-
-